'#sec:Main
? "Easter by the method of ";cat(1);"Oudin";cat(-1)
10 input "Enter a year : ",yr
if yr=0 then 99
tc = yr\\100
tg = yr%19
tk = (tc-17)\\25
tl = (tc-tc\\4-(tc-tk)\\3+19*tg+15)%30
tla=tl\\28
tlb=29\\(tl+1)
tlc=(21-tg)\\11
tl=tl-tla*(1-tla*tlb)*tlc
tj=(yr+yr\\4+tl+2-tc+tc\\4)%7
tl=tl-tj
month=3+(tl+40)\\44
day=tl+28-31*(month\\4)
if month=3 then
 ? "Sunday, March ";day;", ";yr
else
 ? "Sunday, April ";day;", ";yr
fi
goto 10
99 end
'